﻿Imports System

Namespace System.Workflow.Runtime.Tracking
    Public Class TrackingDataItemValue
        ' Methods
        Public Sub New()
        End Sub

        Public Sub New(ByVal qualifiedName As String, ByVal fieldName As String, ByVal dataValue As String)
            Me._name = fieldName
            Me._value = dataValue
            Me._id = qualifiedName
        End Sub


        ' Properties
        Public Property DataValue As String
            Get
                Return Me._value
            End Get
            Set(ByVal value As String)
                Me._value = value
            End Set
        End Property

        Public Property FieldName As String
            Get
                Return Me._name
            End Get
            Set(ByVal value As String)
                Me._name = value
            End Set
        End Property

        Public Property QualifiedName As String
            Get
                Return Me._id
            End Get
            Set(ByVal value As String)
                Me._id = value
            End Set
        End Property


        ' Fields
        Private _id As String
        Private _name As String
        Private _value As String
    End Class
End Namespace

